.DO External 

.LSTON 
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>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Cache. B1 
■J. 

> BftNK 1 MODULE 
> 

> This module contains those Cache routines that roust be located 

> i n Bank 1 . 
> 

> PROCEDURE LoadJCache 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 
.FIN 

.DO External 
.LSTON 
.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

y 

> Procedure: Load_Cache 
> 

> This procedure loads the 'cache-table' iMith the next 7 

> sequential logical blocks < from the current logical block > 

> and status' associated with each block < i.e.^ if no seek is 

> required J, If a head change is required^ etc. > and the 

> head and sector number of each logical block ( assuming that 

> all the blocks are on the same track >. It should be noted that 

> the status bytes are kept in a seperate table. 
> 

> Inputs: { none > 
> 

> Outputs: { none } 
> 

> fl I gor i thm : 
> 

BEGIN 

> Data-Type := User_Type 

> FOR i := t TO CacheLength DO 

> Cur^lock := LogicalBlock + i 

> TempCylj, TemjsHead, TempSector, 

> SrchStat, SrchPtr := CnvrtLoglcaK Cur_Block ? 

> Caches tatusE i - 1 l.Seek := CalcMagDirC TempCyi ) 

> IF < TempHead <> Head > 

> THEN CacheStatusE i - 1 l.HeadChange := True 

> ELSE Caches tatusC i - 1 l.HeadChange := False 

> CacheflrrayE 

> CacheflrrayE 

> CacheflrrayE 

> Cache- Index := 

> END 
> 

.LSTOFF 

.FIN 

.DO Inter^nal 

.LSTON 

. Page 

.FIN 

LoadJCache : 



1 }. LogicalBlock := Cur_Block 
1 l.Head := TempHead 
1 1. Sec tor := TempSector 



Ld_Cc»che_Lp : 



Ld_Cache_ln: 
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Ld 

Ld 
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I r4 , *CadieLer«g th 

!r5,«0 ;clear seekneeded, headchange boo leans 

Data-Type, *User_Type 

!r8,«.HIBVTE. CachStat 
!r9,«.L0WBVTE. CachStat 
!rfl,».HIBVTE. Cacheflrray 
!rB,«.LOMBVTE. Cacheflrray 



«WrkJSys2 
Load-Log i ca I 
»WrkJBys 



; I n i t I og i ca I b I ock 



LdJC_Srch 

Flags ;save result of spare table search 

IrO 

WrkJSys2+$09, ?rC ; store physical block 

Wrk JSys2+$0fl , ! rD ; s tore phys 1 ca I b I ock 

Wrk JSys2+$0B , I rE ; s tore phys i ca I b I ock 

CacheJCnvrt 

IrO 

F I ags 

\r\ ;SeekNeeded,HdChg := False 

Nz, LdJCache-l n 

LdJCJEnter 



«WrkJSys2 

lrE,«1 

!rD.«0 

!rC,«0 

!rB,«1 

!rfl,«0 

!r9,«0 

»l*^k-Sys 

Ld_C-Srch 

Z, CacheJioSpare 



!r1,«CachSeek 

! r5 J r 1 ; se t seel<Jieeded 

EnterJCache 

LdJCacheJIore 



inc logical block 



inc physical block 



Cache JlioSpare : 



Srp «WrkJSys2 

Ld !rO,HrkJSMS+$OC ;nondestructve subtract 

Ld !r1,UrkJSys+$00 

Ld lr2,Mrk_SMS+$0E 

Sub lr2JrB ;IF ( TPBIock <> PBIock ) 

Sbc Irl.lrfl 

Sbc »r0,!r9 

Ld !rF,*0 ; check distance 

Or IrF, IrO 

Or \rF.\r\ 

Or IrF, »r2 

Jr Z . Ld-Cach-NoSeek 



Or IrO, Irl ; check for spare block 

Jr Hz^LdjCach^eek 

Cp Ir2,*1 ; should be distance 1 

Jr Nz . LdJCach-Seek 



Add !rB.*1 ; inc PBIock to account for spare 
fldc !rfl>0 
fldc !r9,»0 



Inc 



!r8 jbump the sector address 



LdJDach-rioSeek: 


Inc 

Cp 

Jr 


!r8 ;buinp the sector address 

!r8,«NbrSctrs 

6e,LdJCach_HdChg 




CIr 
Jr 


WrkJSys+$01 jCacheSeek, CachHdChg := 1 
LdJC Fnter 


LdJCach_HdChg: 


Ld 
Cp 
Jr 


!r8,«0 ; start at sector 
!r?,«0 ; check for head 
Nz,LdJCachJSeek 




Ld 
Ld 
Jr 


lr?/*1 ; otherwise go to head 1 
Wrk jSys+$0 1 , »CachHdChg 
LdJC Fnter 


LdJCachJSeek: 


Ld 

Ld 

Bdd 

fide 

Ld 


«r8,«0 ; start at head 

!r7,*0 ;and sector 

.'r5,»1 jbump the track count by 1 

!r5,#0 

Wrk JSys+$0 1 , *CachSeek 


LdJC Fnter: 


Srp 

Or 

Call 


*UrkjSy£ 

!r5.!r1 ;set seekneeded or headchange 

Ld_BlkStat 


Ld JCacheJIore : 


Dec 
Jp 


!r4 
Nz,LdJCachfi.Lp 


Ld JCache_End : 


CIr 
Jp 


Cache- Index 
Bank_Ret 






Enter -Cache : 


Tm 




Jr 




Or 




Jr 


Ld_Blk_BB: 


Or 


Ld_BlkStat: 


Or 




Lde 


LdJCachJ_gcl : 


Ld 




Ldei 




Ldei 




Ldei 




i new 




Ld 




Ld 




Ld 




Rdd 




Rdc 




Lde 




Ld 




Swap 



!rO.*Spare ; check if block is a spare 
Z,Ld_Blk_BB" 

lr1,«S^lock ;set Spare Block status 
Ld_BlkStat 

!r1,»B_Block ; otherwise it must be a Bad Block 

! r 1 ^ ! rS ; merge i n g I oba I seekneeded or headchange 

!r0,«Mrk_jSys2+$0C :load Cacheflrray. Logical 

§!!rfl,§!r0 

§l!rfl.g!r0 

§!!rfi,g!r0 

I !r8 ;set up for the next go 'round 

!r0,i4rkJSys2+$08 ;get the latest sector yalue 

! r2 , * . H I BYTE . Map-Tab I e ; I oq i ca 1 1 y remap the sec tor 

!r3,«.L0WBVTE. Map-Table 

irSJrO 

!r2,»0 

!r0,i!lr2 

!r1,WrkJSys2+$07 ;get latest head Malue 

lr\ ; merge Head with sector 



Rcf 




Ri 


!r1 


R! 


!rt 


Or 


!r1.!rO 


Lde 


eilrfl Jrl 



!ncw ! IrR j point to next cache entry 
Ret 



CacheJCnurt: Ld !rC,WrkJSys2+$09 ;get latest Physical block 

Ld !rD,Urk_Sys2+$0fl 

Ld !rE,WrkJSys2+$0B 

Ld !r2.«.HIBVTE. GetJCyl_H_JS 

Ld lr3,«.L0WBVTE. GetJCyl_H_S 

Call BankJCall 

Ld WrkJ5ys2+$05, ?rC ; store latest seek address 

Ld UrkJSys2+$06, IrD 

Ld WrkJSMs2+$07, IrE 

Ld MrkJSys2+$08, !rF 

Ret 



.PAGE 

; Fast search of spare table 

LdJCJSrch: Ld !rC>JrkJSys2+$0C :get last loqical block 

Ld !rD,MrkJSys2+$0D ' 

Ld !rE,Urk-Sys2+$0E 

Ld IrlJrD ;check if head ptr is NIL 

Ld IrO, IrC ;but first form a headptr structure 

Rrc !rO ;and index into HeadPtr Array 

Rrc \r\ 

Rcf 

Rrc \r^ 

Ld !r2.«.HlBVTE. SeqPtrfirray 

Ld !r3,«.L0«BVTE. SegPtrflrray 

fidd IrSJrt 

Rdc Ir2,«0 

Lde !r0,§!!r2 ;get headptr and check for MIL 

Tin !rO,#NII 

Jr Z^LdJC_Long ;do a real search if not NIL 

.DO U_10MB 

Ld ! rO ^ 1 rD ; save for poss i b I e r o 1 1 over 

Hdd IrEJrD ; Physical Block := LB lock + LB lock DIU 256 

fide Ir0,#0 

Rdc lrC,*0 

-FIN 

Cp IrOJrD ;check for rollover 

Jr 2,LdJC^_£nd 

Add !rE,*1 ; otherwise biimp Physical Block 



Ld JC_S JEnd : 
LdJCjS_Ret: 



ftdc 
fldc 

Xor 
Ret 



!rO. !rO ; re turn zero status 



LdJC_Lorig: Ld !r2,«.HIBVTE. SrchSpTabI 

Ld !r3,«.L0WBVTE. SrchSpTabI 

Call Bank-Co 1 1 

Jr Ld_CJS_Ret 



LSTOFF 



